home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).zip / Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).po / INERTIA.bas < prev    next >
BASIC Source File  |  1996-12-24  |  648b  |  2 lines
  1. 10  FOR L = 1 TO 99: HOME : VTAB 8: HTAB 17: PRINT "INERTIA": VTAB 13: HTAB 17: PRINT "LEVEL:"L:X = 140:Y = 80: FOR N = 1 TO 75: FOR D = 1 TO  INT( RND(1) *25): NEXT :P =  PEEK(49200): NEXT : HGR : HOME : HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0: HPLOT X,Y:W = 49152: WAIT W,128: FOR Q = 0 TO 1E3:K =  PEEK(W)
  2. 20  HPLOT  PEEK(224) + PEEK(225) *256, PEEK(226) TO X,Y:A = A +((K = 149) *L) -((K = 136) *L):S = S +1 *(K = 149  OR K = 136  OR K = 218  OR K = 193):Z = Z +((K = 218) *L) -((K = 193) *L):X = X +A:Y = Y +Z: IF X <279  AND X >0  AND Y <159  AND Y >0  THEN  VTAB 23: PRINT "SCORE:";S,"LEVEL:";L: NEXT Q:S = S *(L +1): NEXT L